Personal Computer World 1997 September/Personal_Computer_World_Sep_97.iso/Democd1/KCTHEY.dxr/00030_button handlers.ls

Text File | 1997-06-04 | 10.8 KB | 367 lines

on button1
  global gnotefinder, gcmainkey, gpbutover, gcstatus, gckeyover42, gckeyover43, gckeyover44, gckeyover45, gckeyover46, gckeyover47, firstkey, pkeyover42, pkeyover43, pkeyover44, pkeyover45, pkeyover46, pkeyover47, gnoteL5, gnoteL1, gnoteR1, gnoteR2, gnoteR3, gnoteR4, gChord
  set gnotefinder to "1"
  chordpressdown()
  set gpbutover to 37
  set gcstatus to "b1 selected"
  set firstkey to "A1"
  set gcmainkey to "AK"
  set gckeyover42 to "LM1"
  set gckeyover43 to "RL1"
  set gckeyover44 to "RM2"
  set gckeyover45 to "RM5"
  set gckeyover46 to "NONE"
  set gckeyover47 to "none"
  set pkeyover42 to 7
  set pkeyover43 to 9
  set pkeyover44 to 11
  set pkeyover45 to 14
  set pkeyover46 to 5
  set pkeyover47 to 16
  chordpressup()
  set gnoteL5 to "G2"
  set gnoteL1 to "B2"
  set gnoteR1 to "D3"
  set gnoteR2 to "G3"
  set gnoteR3 to "unavail"
  set gnoteR4 to "unavail"
  set gChord to "K0049"
end

on button2
  global gnotefinder, gcmainkey, gpbutover, gcstatus, gckeyover42, gckeyover43, gckeyover44, gckeyover45, gckeyover46, gckeyover47, firstkey, pkeyover42, pkeyover43, pkeyover44, pkeyover45, pkeyover46, pkeyover47, gnoteL5, gnoteL1, gnoteR1, gnoteR2, gnoteR3, gnoteR4, gChord
  set gnotefinder to "2"
  chordpressdown()
  set gpbutover to 85
  set gcstatus to "b2 selected"
  set firstkey to "A1"
  set gcmainkey to "AK"
  set gckeyover42 to "LL3"
  set gckeyover43 to "RL1"
  set gckeyover44 to "RL3"
  set gckeyover45 to "RM5"
  set gckeyover46 to "none"
  set gckeyover47 to "none"
  set pkeyover42 to 5
  set pkeyover43 to 9
  set pkeyover44 to 12
  set pkeyover45 to 14
  set pkeyover46 to 15
  set pkeyover47 to 16
  chordpressup()
  set gnoteL5 to "E2"
  set gnoteL1 to "B2"
  set gnoteR1 to "E3"
  set gnoteR2 to "G3"
  set gnoteR3 to "unavail"
  set gnoteR4 to "unavail"
  set gChord to "K0234"
end

on button3
  global gnotefinder, gcmainkey, gpbutover, gcstatus, gckeyover42, gckeyover43, gckeyover44, gckeyover45, gckeyover46, gckeyover47, firstkey, pkeyover42, pkeyover43, pkeyover44, pkeyover45, pkeyover46, pkeyover47, gnoteL5, gnoteL1, gnoteR1, gnoteR2, gnoteR3, gnoteR4, gChord
  set gnotefinder to "3"
  chordpressdown()
  set gpbutover to 132
  set gcstatus to "b3 selected"
  set firstkey to "A1"
  set gcmainkey to "AK"
  set gckeyover42 to "lM4"
  set gckeyover43 to "rM1"
  set gckeyover44 to "RM2"
  set gckeyover45 to "RT4"
  set gckeyover46 to "none"
  set gckeyover47 to "none"
  set pkeyover42 to 4
  set pkeyover43 to 8
  set pkeyover44 to 11
  set pkeyover45 to 14
  set pkeyover46 to 16
  set pkeyover47 to 16
  chordpressup()
  set gnoteL5 to "D2"
  set gnoteL1 to "A2"
  set gnoteR1 to "D3"
  set gnoteR2 to "FS3"
  set gnoteR3 to "unavail"
  set gnoteR4 to "unavail"
  set gChord to "K0235"
end

on button4
  global gnotefinder, gcmainkey, gpbutover, gcstatus, gckeyover42, gckeyover43, gckeyover44, gckeyover45, gckeyover46, gckeyover47, firstkey, pkeyover42, pkeyover43, pkeyover44, pkeyover45, pkeyover46, pkeyover47, gnoteL5, gnoteL1, gnoteR1, gnoteR2, gnoteR3, gnoteR4, gChord
  set gnotefinder to "4"
  chordpressdown()
  set gpbutover to 180
  set gcstatus to "b4 selected"
  set firstkey to "A1"
  set gcmainkey to "AK"
  set gckeyover42 to "LT4"
  set gckeyover43 to "RT1"
  set gckeyover44 to "RM2"
  set gckeyover45 to "RR4"
  set gckeyover46 to "none"
  set gckeyover47 to "none"
  set pkeyover42 to 2
  set pkeyover43 to 9
  set pkeyover44 to 11
  set pkeyover45 to 13
  set pkeyover46 to 16
  set pkeyover47 to 16
  chordpressup()
  set gnoteL5 to "Bb1"
  set gnoteL1 to "Bb2"
  set gnoteR1 to "D3"
  set gnoteR2 to "F3"
  set gnoteR3 to "unavail"
  set gnoteR4 to "unavail"
  set gChord to "K0236"
end

on button5
  global gnotefinder, gcmainkey, gpbutover, gcstatus, gckeyover42, gckeyover43, gckeyover44, gckeyover45, gckeyover46, gckeyover47, firstkey, pkeyover42, pkeyover43, pkeyover44, pkeyover45, pkeyover46, pkeyover47, gnoteL5, gnoteL1, gnoteR1, gnoteR2, gnoteR3, gnoteR4, gChord
  set gnotefinder to "5"
  chordpressdown()
  set gpbutover to 227
  set gcstatus to "b5 selected"
  set firstkey to "A1"
  set gcmainkey to "AK"
  set gckeyover42 to "LM5"
  set gckeyover43 to "RM1"
  set gckeyover44 to "RM2"
  set gckeyover45 to "RL3"
  set gckeyover46 to "RM5"
  set gckeyover47 to "none"
  set pkeyover42 to 1
  set pkeyover43 to 8
  set pkeyover44 to 11
  set pkeyover45 to 12
  set pkeyover46 to 14
  set pkeyover47 to 15
  chordpressup()
  set gnoteL5 to "A1"
  set gnoteL1 to "A2"
  set gnoteR1 to "D3"
  set gnoteR2 to "E3"
  set gnoteR3 to "G3"
  set gnoteR4 to "unavail"
  set gChord to "K0237"
end

on button6
  global gnotefinder, gcmainkey, gpbutover, gcstatus, gckeyover42, gckeyover43, gckeyover44, gckeyover45, gckeyover46, gckeyover47, firstkey, pkeyover42, pkeyover43, pkeyover44, pkeyover45, pkeyover46, pkeyover47, gnoteL5, gnoteL1, gnoteR1, gnoteR2, gnoteR3, gnoteR4, gChord
  set gnotefinder to "6"
  chordpressdown()
  set gpbutover to 275
  set gcstatus to "b6 selected"
  set firstkey to "A1"
  set gcmainkey to "AK"
  set gckeyover42 to "LR3"
  set gckeyover43 to "RR1"
  set gckeyover44 to "RM2"
  set gckeyover45 to "RL3"
  set gckeyover46 to "RM5"
  set gckeyover47 to "none"
  set pkeyover42 to 3
  set pkeyover43 to 10
  set pkeyover44 to 11
  set pkeyover45 to 12
  set pkeyover46 to 14
  set pkeyover47 to 16
  chordpressup()
  set gnoteL5 to "c2"
  set gnoteL1 to "c3"
  set gnoteR1 to "d3"
  set gnoteR2 to "e3"
  set gnoteR3 to "g3"
  set gnoteR4 to "unavail"
  set gChord to "K0238"
end

on button7
  global gnotefinder, gcmainkey, gpbutover, gcstatus, gckeyover42, gckeyover43, gckeyover44, gckeyover45, gckeyover46, gckeyover47, firstkey, pkeyover42, pkeyover43, pkeyover44, pkeyover45, pkeyover46, pkeyover47, gnoteL5, gnoteL1, gnoteR1, gnoteR2, gnoteR3, gnoteR4, gChord
  set gnotefinder to "7"
  chordpressdown()
  set gpbutover to 322
  set gcstatus to "b7 selected"
  set firstkey to "D2"
  set gcmainkey to "DK"
  set gckeyover42 to "LM5"
  set gckeyover43 to "LM1"
  set gckeyover44 to "RM1"
  set gckeyover45 to "RT2"
  set gckeyover46 to "RM3"
  set gckeyover47 to "RM5"
  set pkeyover42 to 1
  set pkeyover43 to 11
  set pkeyover44 to 12
  set pkeyover45 to 13
  set pkeyover46 to 14
  set pkeyover47 to 15
  chordpressup()
  set gnoteL5 to "a1"
  set gnoteL1 to "a1"
  set gnoteR1 to "a2"
  set gnoteR2 to "a3"
  set gnoteR3 to "a4"
  set gnoteR4 to "a5"
  set gChord to "dmaj"
end

on button8
  global gnotefinder, gcmainkey, gpbutover, gcstatus, gckeyover42, gckeyover43, gckeyover44, gckeyover45, gckeyover46, gckeyover47, firstkey, pkeyover42, pkeyover43, pkeyover44, pkeyover45, pkeyover46, pkeyover47, gnoteL5, gnoteL1, gnoteR1, gnoteR2, gnoteR3, gnoteR4, gChord
  set gnotefinder to "8"
  chordpressdown()
  set gpbutover to 369
  set gcstatus to "b8 selected"
  set firstkey to "F1"
  set gcmainkey to "FK"
  set gckeyover42 to "LM5"
  set gckeyover43 to "LR1"
  set gckeyover44 to "RR1"
  set gckeyover45 to "RM2"
  set gckeyover46 to "RR3"
  set gckeyover47 to "RR5"
  set pkeyover42 to 1
  set pkeyover43 to 1
  set pkeyover44 to 2
  set pkeyover45 to 3
  set pkeyover46 to 4
  set pkeyover47 to 5
  chordpressup()
  set gnoteL5 to "a1"
  set gnoteL1 to "a1"
  set gnoteR1 to "a2"
  set gnoteR2 to "a3"
  set gnoteR3 to "a4"
  set gnoteR4 to "a5"
  set gChord to "fmaj"
end

on button9
  global gnotefinder, gcmainkey, gpbutover, gcstatus, gckeyover42, gckeyover43, gckeyover44, gckeyover45, gckeyover46, gckeyover47, firstkey, pkeyover42, pkeyover43, pkeyover44, pkeyover45, pkeyover46, pkeyover47, gnoteL5, gnoteL1, gnoteR1, gnoteR2, gnoteR3, gnoteR4, gChord
  set gnotefinder to "9"
  chordpressdown()
  set gpbutover to 416
  set gcstatus to "b9 selected"
  set firstkey to "G1"
  set gcmainkey to "GK"
  set gckeyover42 to "LM5"
  set gckeyover43 to "LM1"
  set gckeyover44 to "RM1"
  set gckeyover45 to "RL2"
  set gckeyover46 to "RM3"
  set gckeyover47 to "RT5"
  set pkeyover42 to 1
  set pkeyover43 to 1
  set pkeyover44 to 2
  set pkeyover45 to 3
  set pkeyover46 to 4
  set pkeyover47 to 5
  chordpressup()
  set gnoteL5 to "a1"
  set gnoteL1 to "a1"
  set gnoteR1 to "a2"
  set gnoteR2 to "a3"
  set gnoteR3 to "a4"
  set gnoteR4 to "a5"
  set gChord to "gmaj7"
end

on button10
  global gnotefinder, gcmainkey, gpbutover, gcstatus, gckeyover42, gckeyover43, gckeyover44, gckeyover45, gckeyover46, gckeyover47, firstkey, pkeyover42, pkeyover43, pkeyover44, pkeyover45, pkeyover46, pkeyover47, gnoteL5, gnoteL1, gnoteR1, gnoteR2, gnoteR3, gnoteR4, gChord
  set gnotefinder to "10"
  chordpressdown()
  set gpbutover to 464
  set gcstatus to "b10 selected"
  set firstkey to "G1"
  set gcmainkey to "GK"
  set gckeyover42 to "LM5"
  set gckeyover43 to "LM1"
  set gckeyover44 to "RM1"
  set gckeyover45 to "RL2"
  set gckeyover46 to "RM3"
  set gckeyover47 to "RR5"
  set pkeyover42 to 1
  set pkeyover43 to 2
  set pkeyover44 to 3
  set pkeyover45 to 4
  set pkeyover46 to 5
  set pkeyover47 to 6
  chordpressup()
  set gnoteL5 to "a1"
  set gnoteL1 to "a1"
  set gnoteR1 to "a2"
  set gnoteR2 to "a3"
  set gnoteR3 to "a4"
  set gnoteR4 to "a5"
  set gChord to "g7"
end

on button11
  global gnotefinder, gcmainkey, gpbutover, gcstatus, gckeyover42, gckeyover43, gckeyover44, gckeyover45, gckeyover46, gckeyover47, firstkey, pkeyover42, pkeyover43, pkeyover44, pkeyover45, pkeyover46, pkeyover47, gnoteL5, gnoteL1, gnoteR1, gnoteR2, gnoteR3, gnoteR4, gChord
  set gnotefinder to "11"
  chordpressdown()
  set gpbutover to 511
  set gcstatus to "b11 selected"
  set firstkey to "G1"
  set gcmainkey to "GK"
  set gckeyover42 to "LM5"
  set gckeyover43 to "LL1"
  set gckeyover44 to "RM1"
  set gckeyover45 to "RL2"
  set gckeyover46 to "RM3"
  set gckeyover47 to "none"
  set pkeyover42 to 1
  set pkeyover43 to 5
  set pkeyover44 to 6
  set pkeyover45 to 7
  set pkeyover46 to 8
  set pkeyover47 to 9
  chordpressup()
  set gnoteL5 to "a1"
  set gnoteL1 to "a1"
  set gnoteR1 to "a2"
  set gnoteR2 to "a3"
  set gnoteR3 to "a4"
  set gnoteR4 to "a5"
  set gChord to "gmajb"
end

on button12
  global gnotefinder, gcmainkey, gpbutover, gcstatus, gckeyover42, gckeyover43, gckeyover44, gckeyover45, gckeyover46, gckeyover47, firstkey, pkeyover42, pkeyover43, pkeyover44, pkeyover45, pkeyover46, pkeyover47, gnoteL5, gnoteL1, gnoteR1, gnoteR2, gnoteR3, gnoteR4, gChord
  set gnotefinder to "12"
  chordpressdown()
  set gpbutover to 559
  set gcstatus to "b12 selected"
  set firstkey to "B1"
  set gcmainkey to "BK"
  set gckeyover42 to "LM5"
  set gckeyover43 to "LR1"
  set gckeyover44 to "RR1"
  set gckeyover45 to "RL2"
  set gckeyover46 to "RM3"
  set gckeyover47 to "RT5"
  set pkeyover42 to 1
  set pkeyover43 to 7
  set pkeyover44 to 9
  set pkeyover45 to 11
  set pkeyover46 to 14
  set pkeyover47 to 15
  chordpressup()
  set gnoteL5 to "ab1"
  set gnoteL1 to "bb1"
  set gnoteR1 to "cb2"
  set gnoteR2 to "db3"
  set gnoteR3 to "eb4"
  set gnoteR4 to "fb5"
  set gChord to "c7"
end

on buttonhelp
  global box
  puppetSound("click.wav")
  set box to "fbutton"
  ZONEPRESS()
end